home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TK-DLED.ZIP / DLED.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-29  |  2KB  |  87 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     Print Chr(13) + "@X0BE@X03dit @X0BO@X03ptions, @X1F Continue @X03  Add a File   Remove a File   List Batch "
  25.     INTEGER001 = 1
  26.     While (STRING001 <> Chr(13)) Do
  27.         STRING001 = ""
  28.         While (STRING001 == "") Do
  29.             STRING001 = Inkey()
  30.         EndWhile
  31.         If (STRING001 == "RIGHT") Inc INTEGER001
  32.         If (STRING001 == "LEFT") Dec INTEGER001
  33.         If (INTEGER001 == 0) INTEGER001 = 4
  34.         If (INTEGER001 == 5) INTEGER001 = 1
  35.         If (INTEGER001 == 1) Print Chr(13) + "@X0BE@X03dit @X0BO@X03ptions, @X1F Continue @X03  Add a File   Remove a File   List Batch "
  36.         If (INTEGER001 == 2) Print Chr(13) + "@X0BE@X03dit @X0BO@X03ptions,  Continue  @X1F Add a File @X03  Remove a File   List Batch "
  37.         If (INTEGER001 == 3) Print Chr(13) + "@X0BE@X03dit @X0BO@X03ptions,  Continue   Add a File  @X1F Remove a File @X03  List Batch "
  38.         If (INTEGER001 == 4) Print Chr(13) + "@X0BE@X03dit @X0BO@X03ptions,  Continue   Add a File   Remove a File  @X1F List Batch @X07"
  39.     EndWhile
  40.     PrintLn 
  41.     If (INTEGER001 == 1) KbdStuff Chr(13)
  42.     If (INTEGER001 == 2) KbdStuff "A"
  43.     If (INTEGER001 == 3) KbdStuff "R"
  44.     If (INTEGER001 == 4) KbdStuff "L"
  45.  
  46. ;------------------------------------------------------------------------------
  47. ;
  48. ; Usage report (before postprocessing)
  49. ;
  50. ; ■ Statements used :
  51. ;
  52. ;    4       Goto 
  53. ;    5       Let 
  54. ;    5       Print 
  55. ;    1       PrintLn 
  56. ;    14      If 
  57. ;    1       Inc 
  58. ;    1       Dec 
  59. ;    4       KbdStuff 
  60. ;
  61. ;
  62. ; ■ Functions used :
  63. ;
  64. ;    5       +
  65. ;    13      ==
  66. ;    1       <>
  67. ;    2       !
  68. ;    7       Chr()
  69. ;    1       Inkey()
  70. ;
  71. ;------------------------------------------------------------------------------
  72. ;
  73. ; Analysis flags : No flag
  74. ;
  75. ;------------------------------------------------------------------------------
  76. ;
  77. ; Postprocessing report
  78. ;
  79. ;    0       For/Next
  80. ;    2       While/EndWhile
  81. ;    0       If/Then or If/Then/Else
  82. ;    0       Select Case
  83. ;
  84. ;------------------------------------------------------------------------------
  85. ;                 AEGiS Corp - Break the routines, code against the machines!
  86. ;------------------------------------------------------------------------------
  87.